home *** CD-ROM | disk | FTP | other *** search
/ Freelog 117 / FreelogNo117-OctobreNovembre2013.iso / Programmation / jedit / jedit5.1.0install.exe / {app} / macros / Emacs / Emacs_Upcase_Word.bsh < prev    next >
Text File  |  2013-07-28  |  574b  |  24 lines
  1. /**
  2.  * Convert the portion of the current word to upper case, starting at the
  3.  * caret and moving to the end of the word. Emulates the Emacs "upcase-word"
  4.  * function.
  5.  */
  6.  
  7. source (MiscUtilities.constructPath(dirname(scriptPath), "EmacsUtil.bsh"));
  8.  
  9. void emacsUpcaseWord()
  10. {
  11.     caret = eatNonAlphanums();
  12.  
  13.     textArea.goToNextWord (false);
  14.     endOfWord = textArea.getCaretPosition();
  15.  
  16.     textArea.setCaretPosition (caret);
  17.     selection = new Selection.Range (caret, endOfWord);
  18.     textArea.setSelection (selection);
  19.     textArea.toUpperCase();
  20. }
  21.  
  22. emacsUpcaseWord();
  23.  
  24.